home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 22
/
CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso
/
PowerPC
/
Programming
/
PPCsiod
/
scm
/
with-input.scm
< prev
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1993-08-18
|
427 b
|
12 lines
(define (with-output s p)
(letrec ((o (fluid output-port))
(f (open-port s "w" -1))
(e (lambda () (close-output-port f)
(set! (fluid output-port) o))))
(set! (fluid output-port) f)
(call-on-reset e)
(p)
(close-output-port f)
(set! (fluid output-port) o)
(uncall-on-reset e)))